(Ftry_completion): Check that obarray buckets are symbols.

diff --git a/src/minibuf.c b/src/minibuf.c
index c2df83253fd5540d79a39879b61ef15cce161fab..ab95b5f0a465dce32e9466be33f387b255d83476 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1311,6 +1311,8 @@ is used to further constrain the set of candidates.  */)
        {
          if (!EQ (bucket, zero))
            {
+             if (!SYMBOLP (bucket))
+               error ("Bad data in guts of obarray");
              elt = bucket;
              eltstring = elt;
              if (XSYMBOL (bucket)->next)